perm filename D[1,VDS] blob sn#010357 filedate 1970-12-23 generic text, type T, neo UTF8
00100		TYPE 5
00200		ACCEPT 10,A
00300		TYPE 7
00400		ACCEPT 10,B
00500		C=A/B
00600		TYPE 8
00700		TYPE 10, C
00800	8	FORMAT (' C=$')
00900	5	FORMAT (' A=$')
01000	7	FORMAT (' B=$')
01100	10	FORMAT(F)
01200		END